library(tidyverse)
library(plotly)
levels_df <- read_csv("levels-cleaned.csv")
Missing column names filled in: 'X1' [1]Parsed with column specification:
cols(
  .default = col_double(),
  timestamp = col_character(),
  company = col_character(),
  level = col_character(),
  title = col_character(),
  location = col_character(),
  tag = col_character(),
  gender = col_character(),
  city = col_character(),
  state = col_character(),
  month = col_character()
)
See spec(...) for full column specifications.
companyCompensation <- 
  levels_df %>%
  group_by(year, company) %>%
  summarise(yearly_compensation = mean(totalyearlycompensation))
`summarise()` regrouping output by 'year' (override with `.groups` argument)
cityCompensation <- 
  levels_df %>%
  group_by(year, location) %>%
  summarise(yearly_compensation = mean(totalyearlycompensation))
`summarise()` regrouping output by 'year' (override with `.groups` argument)

Yearly mean compensation for top 5 companies in 2017, 2018, 2019, 2020, 2021

companyCompensation2017 <- 
  companyCompensation %>%
  filter(year == 2017) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

companyCompensation2018 <- 
  companyCompensation %>%
  filter(year == 2018) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

companyCompensation2019 <- 
  companyCompensation %>%
  filter(year == 2019) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

companyCompensation2020 <- 
  companyCompensation %>%
  filter(year == 2020) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

companyCompensation2021 <- 
  companyCompensation %>%
  filter(year == 2021) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

subplot(companyCompensation2017, companyCompensation2018, companyCompensation2019, companyCompensation2020, companyCompensation2021, nrows = 5)

Yearly mean compensation for top 5 cities in 2017, 2018, 2019, 2020, 2021

cityCompensation2017 <- 
  cityCompensation %>%
  filter(year == 2017) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2018 <- 
  cityCompensation %>%
  filter(year == 2018) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2019 <- 
  cityCompensation %>%
  filter(year == 2019) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2020 <- 
  cityCompensation %>%
  filter(year == 2020) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2021 <- 
  cityCompensation %>%
  filter(year == 2021) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

subplot(cityCompensation2017, cityCompensation2018, cityCompensation2019, cityCompensation2020, cityCompensation2021, nrows = 5)

Yearly mean compensation for last 5 companies in 2017, 2018, 2019, 2020, 2021

companyCompensation2017 <- 
  companyCompensation %>%
  filter(year == 2017) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

companyCompensation2018 <- 
  companyCompensation %>%
  filter(year == 2018) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

companyCompensation2019 <- 
  companyCompensation %>%
  filter(year == 2019) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

companyCompensation2020 <- 
  companyCompensation %>%
  filter(year == 2020) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

companyCompensation2021 <- 
  companyCompensation %>%
  filter(year == 2021) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~company,
    type = "bar",
    text = ~paste(company, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

subplot(companyCompensation2017, companyCompensation2018, companyCompensation2019, companyCompensation2020, companyCompensation2021, nrows = 5)

Yearly mean compensation for last 5 cities in 2017, 2018, 2019, 2020, 2021

cityCompensation2017 <- 
  cityCompensation %>%
  filter(year == 2017) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2018 <- 
  cityCompensation %>%
  filter(year == 2018) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2019 <- 
  cityCompensation %>%
  filter(year == 2019) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2020 <- 
  cityCompensation %>%
  filter(year == 2020) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2021 <- 
  cityCompensation %>%
  filter(year == 2021) %>%
  arrange(yearly_compensation) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

subplot(cityCompensation2017, cityCompensation2018, cityCompensation2019, cityCompensation2020, cityCompensation2021, nrows = 5)

Making YOE Levels

YOE_Levels <- 
  levels_df %>%
  mutate(YOE = case_when(between(yearsofexperience, 0, 1) ~ "0-1",
                         between(yearsofexperience, 1, 5) ~ "1-5",
                         between(yearsofexperience, 5, 10) ~ "5-10",
                         yearsofexperience >= 10 ~ "10+"))

cityCompensationYOE <-
  YOE_Levels %>%
  group_by(year, YOE, location) %>%
  summarise(yearly_compensation = mean(totalyearlycompensation))
`summarise()` regrouping output by 'year', 'YOE' (override with `.groups` argument)

2018 top 5 locations with experience plots

cityCompensation2018_01 <- 
  cityCompensationYOE %>%
  filter(YOE == "0-1") %>%
  filter(year == 2018) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2018_15 <- 
  cityCompensationYOE %>%
  filter(YOE == "1-5") %>%
  filter(year == 2018) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2018_510 <- 
  cityCompensationYOE %>%
  filter(YOE == "5-10") %>%
  filter(year == 2018) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2018_10_ <- 
  cityCompensationYOE %>%
  filter(YOE == "10+") %>%
  filter(year == 2018) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

subplot(cityCompensation2018_01, cityCompensation2018_15, cityCompensation2018_510, cityCompensation2018_10_, nrows = 4)

2021 top 5 locations with experience plots

cityCompensation2021_01 <- 
  cityCompensationYOE %>%
  filter(YOE == "0-1") %>%
  filter(year == 2021) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2021_15 <- 
  cityCompensationYOE %>%
  filter(YOE == "1-5") %>%
  filter(year == 2021) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2021_510 <- 
  cityCompensationYOE %>%
  filter(YOE == "5-10") %>%
  filter(year == 2021) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

cityCompensation2021_10_ <- 
  cityCompensationYOE %>%
  filter(YOE == "10+") %>%
  filter(year == 2021) %>%
  arrange(desc(yearly_compensation)) %>%
  head(n = 5) %>%
  plot_ly(
    x = ~yearly_compensation,
    y = ~location,
    type = "bar",
    text = ~paste(location, ": $", round(yearly_compensation), sep = ""),
    hoverinfo = "text"
  ) %>%
  layout(showlegend = FALSE)

subplot(cityCompensation2021_01, cityCompensation2021_15, cityCompensation2021_510, cityCompensation2021_10_, nrows = 4)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OgogIGh0bWxfZG9jdW1lbnQ6CiAgICBkZl9wcmludDogcGFnZWQKLS0tCgpgYGB7cn0KbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkocGxvdGx5KQpgYGAKCmBgYHtyfQpsZXZlbHNfZGYgPC0gcmVhZF9jc3YoImxldmVscy1jbGVhbmVkLmNzdiIpCmBgYAoKYGBge3J9CmNvbXBhbnlDb21wZW5zYXRpb24gPC0gCiAgbGV2ZWxzX2RmICU+JQogIGdyb3VwX2J5KHllYXIsIGNvbXBhbnkpICU+JQogIHN1bW1hcmlzZSh5ZWFybHlfY29tcGVuc2F0aW9uID0gbWVhbih0b3RhbHllYXJseWNvbXBlbnNhdGlvbikpCgpjaXR5Q29tcGVuc2F0aW9uIDwtIAogIGxldmVsc19kZiAlPiUKICBncm91cF9ieSh5ZWFyLCBsb2NhdGlvbikgJT4lCiAgc3VtbWFyaXNlKHllYXJseV9jb21wZW5zYXRpb24gPSBtZWFuKHRvdGFseWVhcmx5Y29tcGVuc2F0aW9uKSkKYGBgCgpZZWFybHkgbWVhbiBjb21wZW5zYXRpb24gZm9yIHRvcCA1IGNvbXBhbmllcyBpbiAyMDE3LCAyMDE4LCAyMDE5LCAyMDIwLCAyMDIxCmBgYHtyfQpjb21wYW55Q29tcGVuc2F0aW9uMjAxNyA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTcpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAxOCA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTgpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAxOSA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTkpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAyMCA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjApICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAyMSA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjEpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpzdWJwbG90KGNvbXBhbnlDb21wZW5zYXRpb24yMDE3LCBjb21wYW55Q29tcGVuc2F0aW9uMjAxOCwgY29tcGFueUNvbXBlbnNhdGlvbjIwMTksIGNvbXBhbnlDb21wZW5zYXRpb24yMDIwLCBjb21wYW55Q29tcGVuc2F0aW9uMjAyMSwgbnJvd3MgPSA1KQpgYGAKClllYXJseSBtZWFuIGNvbXBlbnNhdGlvbiBmb3IgdG9wIDUgY2l0aWVzIGluIDIwMTcsIDIwMTgsIDIwMTksIDIwMjAsIDIwMjEKYGBge3J9CmNpdHlDb21wZW5zYXRpb24yMDE3IDwtIAogIGNpdHlDb21wZW5zYXRpb24gJT4lCiAgZmlsdGVyKHllYXIgPT0gMjAxNykgJT4lCiAgYXJyYW5nZShkZXNjKHllYXJseV9jb21wZW5zYXRpb24pKSAlPiUKICBoZWFkKG4gPSA1KSAlPiUKICBwbG90X2x5KAogICAgeCA9IH55ZWFybHlfY29tcGVuc2F0aW9uLAogICAgeSA9IH5sb2NhdGlvbiwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUobG9jYXRpb24sICI6ICQiLCByb3VuZCh5ZWFybHlfY29tcGVuc2F0aW9uKSwgc2VwID0gIiIpLAogICAgaG92ZXJpbmZvID0gInRleHQiCiAgKSAlPiUKICBsYXlvdXQoc2hvd2xlZ2VuZCA9IEZBTFNFKQoKY2l0eUNvbXBlbnNhdGlvbjIwMTggPC0gCiAgY2l0eUNvbXBlbnNhdGlvbiAlPiUKICBmaWx0ZXIoeWVhciA9PSAyMDE4KSAlPiUKICBhcnJhbmdlKGRlc2MoeWVhcmx5X2NvbXBlbnNhdGlvbikpICU+JQogIGhlYWQobiA9IDUpICU+JQogIHBsb3RfbHkoCiAgICB4ID0gfnllYXJseV9jb21wZW5zYXRpb24sCiAgICB5ID0gfmxvY2F0aW9uLAogICAgdHlwZSA9ICJiYXIiLAogICAgdGV4dCA9IH5wYXN0ZShsb2NhdGlvbiwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjaXR5Q29tcGVuc2F0aW9uMjAxOSA8LSAKICBjaXR5Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTkpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+bG9jYXRpb24sCiAgICB0eXBlID0gImJhciIsCiAgICB0ZXh0ID0gfnBhc3RlKGxvY2F0aW9uLCAiOiAkIiwgcm91bmQoeWVhcmx5X2NvbXBlbnNhdGlvbiksIHNlcCA9ICIiKSwKICAgIGhvdmVyaW5mbyA9ICJ0ZXh0IgogICkgJT4lCiAgbGF5b3V0KHNob3dsZWdlbmQgPSBGQUxTRSkKCmNpdHlDb21wZW5zYXRpb24yMDIwIDwtIAogIGNpdHlDb21wZW5zYXRpb24gJT4lCiAgZmlsdGVyKHllYXIgPT0gMjAyMCkgJT4lCiAgYXJyYW5nZShkZXNjKHllYXJseV9jb21wZW5zYXRpb24pKSAlPiUKICBoZWFkKG4gPSA1KSAlPiUKICBwbG90X2x5KAogICAgeCA9IH55ZWFybHlfY29tcGVuc2F0aW9uLAogICAgeSA9IH5sb2NhdGlvbiwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUobG9jYXRpb24sICI6ICQiLCByb3VuZCh5ZWFybHlfY29tcGVuc2F0aW9uKSwgc2VwID0gIiIpLAogICAgaG92ZXJpbmZvID0gInRleHQiCiAgKSAlPiUKICBsYXlvdXQoc2hvd2xlZ2VuZCA9IEZBTFNFKQoKY2l0eUNvbXBlbnNhdGlvbjIwMjEgPC0gCiAgY2l0eUNvbXBlbnNhdGlvbiAlPiUKICBmaWx0ZXIoeWVhciA9PSAyMDIxKSAlPiUKICBhcnJhbmdlKGRlc2MoeWVhcmx5X2NvbXBlbnNhdGlvbikpICU+JQogIGhlYWQobiA9IDUpICU+JQogIHBsb3RfbHkoCiAgICB4ID0gfnllYXJseV9jb21wZW5zYXRpb24sCiAgICB5ID0gfmxvY2F0aW9uLAogICAgdHlwZSA9ICJiYXIiLAogICAgdGV4dCA9IH5wYXN0ZShsb2NhdGlvbiwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpzdWJwbG90KGNpdHlDb21wZW5zYXRpb24yMDE3LCBjaXR5Q29tcGVuc2F0aW9uMjAxOCwgY2l0eUNvbXBlbnNhdGlvbjIwMTksIGNpdHlDb21wZW5zYXRpb24yMDIwLCBjaXR5Q29tcGVuc2F0aW9uMjAyMSwgbnJvd3MgPSA1KQpgYGAKClllYXJseSBtZWFuIGNvbXBlbnNhdGlvbiBmb3IgbGFzdCA1IGNvbXBhbmllcyBpbiAyMDE3LCAyMDE4LCAyMDE5LCAyMDIwLCAyMDIxCmBgYHtyfQpjb21wYW55Q29tcGVuc2F0aW9uMjAxNyA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTcpICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAxOCA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTgpICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAxOSA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTkpICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAyMCA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjApICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjb21wYW55Q29tcGVuc2F0aW9uMjAyMSA8LSAKICBjb21wYW55Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjEpICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+Y29tcGFueSwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUoY29tcGFueSwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpzdWJwbG90KGNvbXBhbnlDb21wZW5zYXRpb24yMDE3LCBjb21wYW55Q29tcGVuc2F0aW9uMjAxOCwgY29tcGFueUNvbXBlbnNhdGlvbjIwMTksIGNvbXBhbnlDb21wZW5zYXRpb24yMDIwLCBjb21wYW55Q29tcGVuc2F0aW9uMjAyMSwgbnJvd3MgPSA1KQpgYGAKClllYXJseSBtZWFuIGNvbXBlbnNhdGlvbiBmb3IgbGFzdCA1IGNpdGllcyBpbiAyMDE3LCAyMDE4LCAyMDE5LCAyMDIwLCAyMDIxCmBgYHtyfQpjaXR5Q29tcGVuc2F0aW9uMjAxNyA8LSAKICBjaXR5Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMTcpICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+bG9jYXRpb24sCiAgICB0eXBlID0gImJhciIsCiAgICB0ZXh0ID0gfnBhc3RlKGxvY2F0aW9uLCAiOiAkIiwgcm91bmQoeWVhcmx5X2NvbXBlbnNhdGlvbiksIHNlcCA9ICIiKSwKICAgIGhvdmVyaW5mbyA9ICJ0ZXh0IgogICkgJT4lCiAgbGF5b3V0KHNob3dsZWdlbmQgPSBGQUxTRSkKCmNpdHlDb21wZW5zYXRpb24yMDE4IDwtIAogIGNpdHlDb21wZW5zYXRpb24gJT4lCiAgZmlsdGVyKHllYXIgPT0gMjAxOCkgJT4lCiAgYXJyYW5nZSh5ZWFybHlfY29tcGVuc2F0aW9uKSAlPiUKICBoZWFkKG4gPSA1KSAlPiUKICBwbG90X2x5KAogICAgeCA9IH55ZWFybHlfY29tcGVuc2F0aW9uLAogICAgeSA9IH5sb2NhdGlvbiwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUobG9jYXRpb24sICI6ICQiLCByb3VuZCh5ZWFybHlfY29tcGVuc2F0aW9uKSwgc2VwID0gIiIpLAogICAgaG92ZXJpbmZvID0gInRleHQiCiAgKSAlPiUKICBsYXlvdXQoc2hvd2xlZ2VuZCA9IEZBTFNFKQoKY2l0eUNvbXBlbnNhdGlvbjIwMTkgPC0gCiAgY2l0eUNvbXBlbnNhdGlvbiAlPiUKICBmaWx0ZXIoeWVhciA9PSAyMDE5KSAlPiUKICBhcnJhbmdlKHllYXJseV9jb21wZW5zYXRpb24pICU+JQogIGhlYWQobiA9IDUpICU+JQogIHBsb3RfbHkoCiAgICB4ID0gfnllYXJseV9jb21wZW5zYXRpb24sCiAgICB5ID0gfmxvY2F0aW9uLAogICAgdHlwZSA9ICJiYXIiLAogICAgdGV4dCA9IH5wYXN0ZShsb2NhdGlvbiwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjaXR5Q29tcGVuc2F0aW9uMjAyMCA8LSAKICBjaXR5Q29tcGVuc2F0aW9uICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjApICU+JQogIGFycmFuZ2UoeWVhcmx5X2NvbXBlbnNhdGlvbikgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+bG9jYXRpb24sCiAgICB0eXBlID0gImJhciIsCiAgICB0ZXh0ID0gfnBhc3RlKGxvY2F0aW9uLCAiOiAkIiwgcm91bmQoeWVhcmx5X2NvbXBlbnNhdGlvbiksIHNlcCA9ICIiKSwKICAgIGhvdmVyaW5mbyA9ICJ0ZXh0IgogICkgJT4lCiAgbGF5b3V0KHNob3dsZWdlbmQgPSBGQUxTRSkKCmNpdHlDb21wZW5zYXRpb24yMDIxIDwtIAogIGNpdHlDb21wZW5zYXRpb24gJT4lCiAgZmlsdGVyKHllYXIgPT0gMjAyMSkgJT4lCiAgYXJyYW5nZSh5ZWFybHlfY29tcGVuc2F0aW9uKSAlPiUKICBoZWFkKG4gPSA1KSAlPiUKICBwbG90X2x5KAogICAgeCA9IH55ZWFybHlfY29tcGVuc2F0aW9uLAogICAgeSA9IH5sb2NhdGlvbiwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUobG9jYXRpb24sICI6ICQiLCByb3VuZCh5ZWFybHlfY29tcGVuc2F0aW9uKSwgc2VwID0gIiIpLAogICAgaG92ZXJpbmZvID0gInRleHQiCiAgKSAlPiUKICBsYXlvdXQoc2hvd2xlZ2VuZCA9IEZBTFNFKQoKc3VicGxvdChjaXR5Q29tcGVuc2F0aW9uMjAxNywgY2l0eUNvbXBlbnNhdGlvbjIwMTgsIGNpdHlDb21wZW5zYXRpb24yMDE5LCBjaXR5Q29tcGVuc2F0aW9uMjAyMCwgY2l0eUNvbXBlbnNhdGlvbjIwMjEsIG5yb3dzID0gNSkKYGBgCgpNYWtpbmcgWU9FIExldmVscwpgYGB7cn0KWU9FX0xldmVscyA8LSAKICBsZXZlbHNfZGYgJT4lCiAgbXV0YXRlKFlPRSA9IGNhc2Vfd2hlbihiZXR3ZWVuKHllYXJzb2ZleHBlcmllbmNlLCAwLCAxKSB+ICIwLTEiLAogICAgICAgICAgICAgICAgICAgICAgICAgYmV0d2Vlbih5ZWFyc29mZXhwZXJpZW5jZSwgMSwgNSkgfiAiMS01IiwKICAgICAgICAgICAgICAgICAgICAgICAgIGJldHdlZW4oeWVhcnNvZmV4cGVyaWVuY2UsIDUsIDEwKSB+ICI1LTEwIiwKICAgICAgICAgICAgICAgICAgICAgICAgIHllYXJzb2ZleHBlcmllbmNlID49IDEwIH4gIjEwKyIpKQoKY2l0eUNvbXBlbnNhdGlvbllPRSA8LQogIFlPRV9MZXZlbHMgJT4lCiAgZ3JvdXBfYnkoeWVhciwgWU9FLCBsb2NhdGlvbikgJT4lCiAgc3VtbWFyaXNlKHllYXJseV9jb21wZW5zYXRpb24gPSBtZWFuKHRvdGFseWVhcmx5Y29tcGVuc2F0aW9uKSkKYGBgCgoyMDE4IHRvcCA1IGxvY2F0aW9ucyB3aXRoIGV4cGVyaWVuY2UgcGxvdHMKYGBge3J9CmNpdHlDb21wZW5zYXRpb24yMDE4XzAxIDwtIAogIGNpdHlDb21wZW5zYXRpb25ZT0UgJT4lCiAgZmlsdGVyKFlPRSA9PSAiMC0xIikgJT4lCiAgZmlsdGVyKHllYXIgPT0gMjAxOCkgJT4lCiAgYXJyYW5nZShkZXNjKHllYXJseV9jb21wZW5zYXRpb24pKSAlPiUKICBoZWFkKG4gPSA1KSAlPiUKICBwbG90X2x5KAogICAgeCA9IH55ZWFybHlfY29tcGVuc2F0aW9uLAogICAgeSA9IH5sb2NhdGlvbiwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUobG9jYXRpb24sICI6ICQiLCByb3VuZCh5ZWFybHlfY29tcGVuc2F0aW9uKSwgc2VwID0gIiIpLAogICAgaG92ZXJpbmZvID0gInRleHQiCiAgKSAlPiUKICBsYXlvdXQoc2hvd2xlZ2VuZCA9IEZBTFNFKQoKY2l0eUNvbXBlbnNhdGlvbjIwMThfMTUgPC0gCiAgY2l0eUNvbXBlbnNhdGlvbllPRSAlPiUKICBmaWx0ZXIoWU9FID09ICIxLTUiKSAlPiUKICBmaWx0ZXIoeWVhciA9PSAyMDE4KSAlPiUKICBhcnJhbmdlKGRlc2MoeWVhcmx5X2NvbXBlbnNhdGlvbikpICU+JQogIGhlYWQobiA9IDUpICU+JQogIHBsb3RfbHkoCiAgICB4ID0gfnllYXJseV9jb21wZW5zYXRpb24sCiAgICB5ID0gfmxvY2F0aW9uLAogICAgdHlwZSA9ICJiYXIiLAogICAgdGV4dCA9IH5wYXN0ZShsb2NhdGlvbiwgIjogJCIsIHJvdW5kKHllYXJseV9jb21wZW5zYXRpb24pLCBzZXAgPSAiIiksCiAgICBob3ZlcmluZm8gPSAidGV4dCIKICApICU+JQogIGxheW91dChzaG93bGVnZW5kID0gRkFMU0UpCgpjaXR5Q29tcGVuc2F0aW9uMjAxOF81MTAgPC0gCiAgY2l0eUNvbXBlbnNhdGlvbllPRSAlPiUKICBmaWx0ZXIoWU9FID09ICI1LTEwIikgJT4lCiAgZmlsdGVyKHllYXIgPT0gMjAxOCkgJT4lCiAgYXJyYW5nZShkZXNjKHllYXJseV9jb21wZW5zYXRpb24pKSAlPiUKICBoZWFkKG4gPSA1KSAlPiUKICBwbG90X2x5KAogICAgeCA9IH55ZWFybHlfY29tcGVuc2F0aW9uLAogICAgeSA9IH5sb2NhdGlvbiwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUobG9jYXRpb24sICI6ICQiLCByb3VuZCh5ZWFybHlfY29tcGVuc2F0aW9uKSwgc2VwID0gIiIpLAogICAgaG92ZXJpbmZvID0gInRleHQiCiAgKSAlPiUKICBsYXlvdXQoc2hvd2xlZ2VuZCA9IEZBTFNFKQoKY2l0eUNvbXBlbnNhdGlvbjIwMThfMTBfIDwtIAogIGNpdHlDb21wZW5zYXRpb25ZT0UgJT4lCiAgZmlsdGVyKFlPRSA9PSAiMTArIikgJT4lCiAgZmlsdGVyKHllYXIgPT0gMjAxOCkgJT4lCiAgYXJyYW5nZShkZXNjKHllYXJseV9jb21wZW5zYXRpb24pKSAlPiUKICBoZWFkKG4gPSA1KSAlPiUKICBwbG90X2x5KAogICAgeCA9IH55ZWFybHlfY29tcGVuc2F0aW9uLAogICAgeSA9IH5sb2NhdGlvbiwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUobG9jYXRpb24sICI6ICQiLCByb3VuZCh5ZWFybHlfY29tcGVuc2F0aW9uKSwgc2VwID0gIiIpLAogICAgaG92ZXJpbmZvID0gInRleHQiCiAgKSAlPiUKICBsYXlvdXQoc2hvd2xlZ2VuZCA9IEZBTFNFKQoKc3VicGxvdChjaXR5Q29tcGVuc2F0aW9uMjAxOF8wMSwgY2l0eUNvbXBlbnNhdGlvbjIwMThfMTUsIGNpdHlDb21wZW5zYXRpb24yMDE4XzUxMCwgY2l0eUNvbXBlbnNhdGlvbjIwMThfMTBfLCBucm93cyA9IDQpCmBgYAoKMjAyMSB0b3AgNSBsb2NhdGlvbnMgd2l0aCBleHBlcmllbmNlIHBsb3RzCmBgYHtyfQpjaXR5Q29tcGVuc2F0aW9uMjAyMV8wMSA8LSAKICBjaXR5Q29tcGVuc2F0aW9uWU9FICU+JQogIGZpbHRlcihZT0UgPT0gIjAtMSIpICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjEpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+bG9jYXRpb24sCiAgICB0eXBlID0gImJhciIsCiAgICB0ZXh0ID0gfnBhc3RlKGxvY2F0aW9uLCAiOiAkIiwgcm91bmQoeWVhcmx5X2NvbXBlbnNhdGlvbiksIHNlcCA9ICIiKSwKICAgIGhvdmVyaW5mbyA9ICJ0ZXh0IgogICkgJT4lCiAgbGF5b3V0KHNob3dsZWdlbmQgPSBGQUxTRSkKCmNpdHlDb21wZW5zYXRpb24yMDIxXzE1IDwtIAogIGNpdHlDb21wZW5zYXRpb25ZT0UgJT4lCiAgZmlsdGVyKFlPRSA9PSAiMS01IikgJT4lCiAgZmlsdGVyKHllYXIgPT0gMjAyMSkgJT4lCiAgYXJyYW5nZShkZXNjKHllYXJseV9jb21wZW5zYXRpb24pKSAlPiUKICBoZWFkKG4gPSA1KSAlPiUKICBwbG90X2x5KAogICAgeCA9IH55ZWFybHlfY29tcGVuc2F0aW9uLAogICAgeSA9IH5sb2NhdGlvbiwKICAgIHR5cGUgPSAiYmFyIiwKICAgIHRleHQgPSB+cGFzdGUobG9jYXRpb24sICI6ICQiLCByb3VuZCh5ZWFybHlfY29tcGVuc2F0aW9uKSwgc2VwID0gIiIpLAogICAgaG92ZXJpbmZvID0gInRleHQiCiAgKSAlPiUKICBsYXlvdXQoc2hvd2xlZ2VuZCA9IEZBTFNFKQoKY2l0eUNvbXBlbnNhdGlvbjIwMjFfNTEwIDwtIAogIGNpdHlDb21wZW5zYXRpb25ZT0UgJT4lCiAgZmlsdGVyKFlPRSA9PSAiNS0xMCIpICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjEpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+bG9jYXRpb24sCiAgICB0eXBlID0gImJhciIsCiAgICB0ZXh0ID0gfnBhc3RlKGxvY2F0aW9uLCAiOiAkIiwgcm91bmQoeWVhcmx5X2NvbXBlbnNhdGlvbiksIHNlcCA9ICIiKSwKICAgIGhvdmVyaW5mbyA9ICJ0ZXh0IgogICkgJT4lCiAgbGF5b3V0KHNob3dsZWdlbmQgPSBGQUxTRSkKCmNpdHlDb21wZW5zYXRpb24yMDIxXzEwXyA8LSAKICBjaXR5Q29tcGVuc2F0aW9uWU9FICU+JQogIGZpbHRlcihZT0UgPT0gIjEwKyIpICU+JQogIGZpbHRlcih5ZWFyID09IDIwMjEpICU+JQogIGFycmFuZ2UoZGVzYyh5ZWFybHlfY29tcGVuc2F0aW9uKSkgJT4lCiAgaGVhZChuID0gNSkgJT4lCiAgcGxvdF9seSgKICAgIHggPSB+eWVhcmx5X2NvbXBlbnNhdGlvbiwKICAgIHkgPSB+bG9jYXRpb24sCiAgICB0eXBlID0gImJhciIsCiAgICB0ZXh0ID0gfnBhc3RlKGxvY2F0aW9uLCAiOiAkIiwgcm91bmQoeWVhcmx5X2NvbXBlbnNhdGlvbiksIHNlcCA9ICIiKSwKICAgIGhvdmVyaW5mbyA9ICJ0ZXh0IgogICkgJT4lCiAgbGF5b3V0KHNob3dsZWdlbmQgPSBGQUxTRSkKCnN1YnBsb3QoY2l0eUNvbXBlbnNhdGlvbjIwMjFfMDEsIGNpdHlDb21wZW5zYXRpb24yMDIxXzE1LCBjaXR5Q29tcGVuc2F0aW9uMjAyMV81MTAsIGNpdHlDb21wZW5zYXRpb24yMDIxXzEwXywgbnJvd3MgPSA0KQpgYGAK